home *** CD-ROM | disk | FTP | other *** search
/ El Mac 9 / El Mac 9.iso / Shareware / Applications / Charting Coach v1.5 / Charting Coach v1.dxr / 00129.ls < prev    next >
Encoding:
Text File  |  1996-04-08  |  663 b   |  26 lines
  1. on mouseUp
  2.   global stamp, dayNo, PeakDayNo, candidateStamp
  3.   if candidateStamp = 4 then
  4.     go("chart Mucus")
  5.     cursor(0)
  6.   else
  7.     if candidateStamp = 5 then
  8.       if getOne(stamp, 10) <> 0 then
  9.         setAt(stamp, getOne(stamp, 10), 3)
  10.       end if
  11.       setAt(stamp, dayNo, 10)
  12.       set PeakDayNo to dayNo
  13.       append(relations, 0)
  14.       append(mucus, 0)
  15.       append(stamp, candidateStamp)
  16.       showDays()
  17.       setupDayBook()
  18.       cursor(0)
  19.     else
  20.       cursor(0)
  21.       alert("If there is not a moist or lubricated sensation on the days after Peak Day, choose the Yellow Baby or Brown Baby stamp.")
  22.       go("chart stamp")
  23.     end if
  24.   end if
  25. end
  26.